home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MS Money 1.xpl < prev    next >
Text File  |  2003-12-06  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "DATA 1"="Programs (*.exe)|*.EXE"
  4. "COUNT"="5"
  5. "UIPATH"="Program Options\Other Programs\MS Money"
  6. "NAME"="Calculator"
  7. "VERSION"="3.06"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Calc for 99"
  10. "TEXT 2"="Calc for 2000"
  11. "TEXT 3"="Calc for 2001"
  12. "TEXT 4"="Calc for 2002"
  13. "TEXT 5"="Calc for 2003"
  14. "DESCRIPTION 1"="This option will allow you to change the program that is launched from Microsoft Money when you click 'Tools, Calculator' in it."
  15. "DESCRIPTION 2"="You might wish to change this to Excel.exe if you have Microsoft Excel which can handle many more mathematical functions than Windows' Calculator program can."
  16. "DESCRIPTION 3"="The default program is Calc.exe, which is Windows Calculator."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=" "
  21. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  22.  
  23.  
  24. sPC="HKCU\Software\Microsoft\Money\"
  25. sV1="HKCU\Software\Microsoft\Money\7.0\Calculator"
  26. sV2="HKCU\Software\Microsoft\Money\8.0\Calculator"
  27. sV3="HKCU\Software\Microsoft\Money\9.0\Calculator"
  28. sV4="HKCU\Software\Microsoft\Money\10.0\Calculator"
  29. sV5="HKCU\Software\Microsoft\Money\11.0\Calculator"
  30.  
  31. Sub Plugin_Initialize 
  32.  If RegPathExists(sPC) then
  33.  
  34.     s=RegReadValue(sV1)
  35.     SetUiElement 1,s
  36.  
  37.     s=RegReadValue(sV2)
  38.     SetUiElement 2,s
  39.  
  40.     s=RegReadValue(sV3)
  41.     SetUiElement 3,s
  42.  
  43.     s=RegReadValue(sV4)
  44.     SetUiElement 4,s
  45.  
  46.     s=RegReadValue(sV5)
  47.     SetUiElement 5,s
  48.  
  49.  else
  50.     Call Disable()
  51.  end if
  52. End Sub
  53.  
  54. Sub Plugin_CheckData(ElementIndex)
  55. End Sub
  56.  
  57. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  58.  s=GetUIElement(1)
  59.  Call RegWriteValue(sV1,s,1)
  60.  
  61.  s=GetUIElement(2)
  62.  Call RegWriteValue(sV2,s,1)
  63.  
  64.  s=GetUIElement(3)
  65.  Call RegWriteValue(sV3,s,1)
  66.  
  67.  s=GetUIElement(4)
  68.  Call RegWriteValue(sV4,s,1)
  69.  
  70.  s=GetUIElement(5)
  71.  Call RegWriteValue(sV5,s,1)
  72.  
  73. End Sub
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.  
  78.  
  79.  
  80.